function exp_NBA_SLICE()
    h=figure(1)
    data=loadNBAData();
    exp_F3(data);
    drawData(data);
    saveas(h,'figure_exp_NBA_onlydata.fig');
end

function drawData(data)
    plot3(data(:,1),data(:,2),data(:,3),'r.');
    grid on;
end

function data=loadNBAData()
    load('nba2.mat','gp','minutes','reb','ast','stl');
    data=[minutes,ast,reb];
end

function exp_F3(data)
    [corrplanes,sups]=SLICE2(data,1,0.001,0.1);
    corratts={};
    for i=1:length(corrplanes)
        corratts{i}=[1,2,3];
    end
    displaycorrelations(corrplanes,sups,corratts,0.001, 'exp_SLICE.txt');
end
